home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / AC&TF.cpt / •AC&TF• Edited / background_2739.txt < prev    next >
Text File  |  1992-03-21  |  9KB  |  422 lines
  1. -- background: 2739 from stack: in
  2. -- bmap block id: 3242
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Main
  6. ----- HyperTalk script -----
  7. on idle
  8.   global DSTSeason, DSTObservedThere
  9.  
  10.  
  11.   -- calculate the raw time there, in seconds
  12.   put the seconds + ((fld "GMTThere" - fld "GMTHere" of card "Title Card") * 3600) into tmp
  13.  
  14.   -- if it is DST Season, we need to check whether DST is observed
  15.   -- here, and whether it is observed there. If they are the same, i.e.
  16.   -- both observe it or both don't, then the raw time is OK, otherwise
  17.   -- need to add or subtract an hour
  18.  
  19.   if DSTSeason  = "DST" then
  20.     if bg fld "DSTObservedHere" of card "Title Card" ‚↠DSTObservedThere then
  21.       if DSTObservedThere = "DST" then
  22.         add 3600 to tmp
  23.       else
  24.         subtract 3600 from tmp
  25.       end if
  26.     end if
  27.   end if
  28.  
  29.   convert tmp to time
  30.   put "Time HERE:" && the time into fld "TimeHere"
  31.   put "Time THERE:" && tmp into fld "TimeThere"
  32.   pass idle
  33. end idle
  34.  
  35.  
  36. -- part 35 (button)
  37. -- low flags: 00
  38. -- high flags: 8002
  39. -- rect: left=14 top=77 right=96 bottom=156
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48. ----- HyperTalk script -----
  49. -- This button MUST be bg button 1
  50.  
  51.  
  52.  
  53. -- part 13 (button)
  54. -- low flags: 00
  55. -- high flags: 2000
  56. -- rect: left=182 top=238 right=280 bottom=263
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: FIND
  65. ----- HyperTalk script -----
  66.  
  67. on mouseUp
  68.   Ask "Find what?"
  69.   if it is not empty and the result is not "Cancel" then
  70.     put it into findString
  71.     put "Find " & quote & findString & quote into msg
  72.     find findString
  73.     if the result is not empty then
  74.       answer findString && "not found."
  75.     end if
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80. -- part 3 (button)
  81. -- low flags: 00
  82. -- high flags: 8002
  83. -- rect: left=109 top=54 right=73 bottom=260
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: State, Province, Area
  92.  
  93.  
  94. -- part 4 (button)
  95. -- low flags: 00
  96. -- high flags: 8002
  97. -- rect: left=160 top=77 right=96 bottom=227
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Country
  106.  
  107.  
  108. -- part 6 (button)
  109. -- low flags: 00
  110. -- high flags: 8002
  111. -- rect: left=160 top=99 right=119 bottom=254
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Country Code
  120.  
  121.  
  122. -- part 7 (button)
  123. -- low flags: 00
  124. -- high flags: 8002
  125. -- rect: left=322 top=99 right=119 bottom=436
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Area/City Code
  134.  
  135.  
  136. -- part 9 (button)
  137. -- low flags: 00
  138. -- high flags: 8002
  139. -- rect: left=14 top=122 right=147 bottom=496
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: USA/CANADA Cities in this Area Code or International Cities and Codes
  148.  
  149.  
  150. -- part 14 (button)
  151. -- low flags: 00
  152. -- high flags: 2000
  153. -- rect: left=159 top=246 right=268 bottom=183
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 17779 / 17779
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: Prev
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   visual wipe right to card
  165.   go to previous card
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 15 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=256 top=246 right=269 bottom=274
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 8419 / 8419
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Next
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   visual wipe left to card
  185.   go to next card
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 19 (field)
  191. -- low flags: 01
  192. -- high flags: 6007
  193. -- rect: left=14 top=146 right=233 bottom=496
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 3
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: City Names
  202.  
  203.  
  204. -- part 22 (field)
  205. -- low flags: 01
  206. -- high flags: 0002
  207. -- rect: left=259 top=54 right=73 bottom=496
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 1
  211. -- font id: 3
  212. -- text size: 12
  213. -- style flags: 256
  214. -- line height: 16
  215. -- part name: State
  216.  
  217.  
  218. -- part 23 (field)
  219. -- low flags: 01
  220. -- high flags: 0002
  221. -- rect: left=253 top=99 right=119 bottom=296
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 3
  226. -- text size: 12
  227. -- style flags: 256
  228. -- line height: 16
  229. -- part name: Country Code
  230.  
  231.  
  232. -- part 24 (field)
  233. -- low flags: 01
  234. -- high flags: 0002
  235. -- rect: left=435 top=99 right=119 bottom=496
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 3
  240. -- text size: 12
  241. -- style flags: 256
  242. -- line height: 16
  243. -- part name: Area/City Code
  244.  
  245.  
  246. -- part 25 (field)
  247. -- low flags: 01
  248. -- high flags: 0002
  249. -- rect: left=226 top=77 right=96 bottom=496
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 3
  254. -- text size: 12
  255. -- style flags: 256
  256. -- line height: 16
  257. -- part name: Country
  258.  
  259.  
  260. -- part 29 (button)
  261. -- low flags: 00
  262. -- high flags: 2000
  263. -- rect: left=15 top=232 right=274 bottom=78
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 32462 / 32462
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Help
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   go card "Help"
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 30 (button)
  280. -- low flags: 00
  281. -- high flags: 2000
  282. -- rect: left=77 top=232 right=274 bottom=139
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 27056 / 27056
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: Set Up
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   set lockScreen to true
  294.   go card "Title Card"
  295.   send mouseUp to button "Personalize"
  296.   go back
  297.   set lockScreen to false
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 32 (field)
  303. -- low flags: 01
  304. -- high flags: 0002
  305. -- rect: left=160 top=31 right=50 bottom=315
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 1
  309. -- font id: 3
  310. -- text size: 12
  311. -- style flags: 256
  312. -- line height: 16
  313. -- part name: TimeHere
  314.  
  315.  
  316. -- part 33 (field)
  317. -- low flags: 01
  318. -- high flags: 0002
  319. -- rect: left=318 top=31 right=50 bottom=496
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 3
  324. -- text size: 12
  325. -- style flags: 256
  326. -- line height: 16
  327. -- part name: TimeThere
  328.  
  329.  
  330. -- part 34 (field)
  331. -- low flags: 80
  332. -- high flags: 0001
  333. -- rect: left=105 top=18 right=41 bottom=148
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 1
  337. -- font id: 3
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: GMTThere
  342.  
  343.  
  344. -- part 39 (button)
  345. -- low flags: 00
  346. -- high flags: 8002
  347. -- rect: left=14 top=99 right=119 bottom=156
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: Intl. Access: Dial 011
  356.  
  357.  
  358. -- part 40 (button)
  359. -- low flags: 00
  360. -- high flags: 8000
  361. -- rect: left=73 top=267 right=281 bottom=153
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 0 / 0
  364. -- text alignment: 1
  365. -- font id: 0
  366. -- text size: 12
  367. -- style flags: 0
  368. -- line height: 16
  369. -- part name: Personalize
  370.  
  371.  
  372. -- part 41 (button)
  373. -- low flags: 00
  374. -- high flags: 8000
  375. -- rect: left=26 top=267 right=281 bottom=70
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 0
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: Help
  384.  
  385.  
  386. -- part 42 (button)
  387. -- low flags: 00
  388. -- high flags: 8003
  389. -- rect: left=285 top=245 right=270 bottom=422
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: Return to Title Card
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   go card "Title Card"
  401. end mouseUp
  402.  
  403.  
  404.  
  405. -- part 53 (button)
  406. -- low flags: 00
  407. -- high flags: A000
  408. -- rect: left=423 top=235 right=280 bottom=494
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 3071 / 3071
  411. -- text alignment: 1
  412. -- font id: 3
  413. -- text size: 10
  414. -- style flags: 256
  415. -- line height: 13
  416. -- part name: Quit HyperCard
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   doMenu "Quit HyperCard"
  420. end mouseUp
  421.  
  422.